home *** CD-ROM | disk | FTP | other *** search
- /*
- File: PPCGlue.c
-
- Contains: Glue necessary to call AppendDialogItemList.
-
- Version: Appearance 1.0 SDK
-
- Copyright: © 1997 by Apple Computer, Inc., all rights reserved.
-
- File Ownership:
-
- DRI: Edward Voas
-
- Other Contact: 7 of 9, Borg Collective
-
- Technology: OS Technologies Group
-
- Writers:
-
- (edv) Ed Voas
-
- Change History (most recent first):
-
- <1> 9/11/97 edv First checked in.
- */
-
- #include "AppearanceHelpers.h"
-
- #define RESULT_OFFSET(type) ((sizeof(type) == 1) ? 3 : ((sizeof(type) == 2) ? 1 : 0))
-
- pascal OSErr
- AppendDialogItemList( DialogPtr dialog, SInt16 ditlID, DITLMethod method )
- {
- long private_result;
-
- private_result = CallUniversalProc((UniversalProcPtr)GetToolTrapAddress(0xAA68),
- kD0DispatchedPascalStackBased
- | RESULT_SIZE(SIZE_CODE(sizeof(OSErr)))
- | DISPATCHED_STACK_ROUTINE_SELECTOR_SIZE(kTwoByteCode)
- | DISPATCHED_STACK_ROUTINE_PARAMETER(1, SIZE_CODE(sizeof(dialog)))
- | DISPATCHED_STACK_ROUTINE_PARAMETER(2, SIZE_CODE(sizeof(ditlID)))
- | DISPATCHED_STACK_ROUTINE_PARAMETER(3, SIZE_CODE(sizeof(method))),
- 0x0412,
- dialog,
- ditlID,
- method );
-
- return *(((OSErr*)&private_result) + RESULT_OFFSET(OSErr));
- }
-